library(tidyverse)
library(readr)
library(janitor)
library(tidyr)
library(readxl)
candy_2015 <- read_excel("raw_data/boing-boing-candy-2015.xlsx")
candy_2016 <- read_excel("raw_data/boing-boing-candy-2016.xlsx")
candy_2017 <- read_excel("raw_data/boing-boing-candy-2017.xlsx")
New names:
candy_2015_2016_2017 %>% 
  summarise(age)
Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in dplyr 1.1.0.
Please use `reframe()` instead.
When switching from `summarise()` to `reframe()`, remember that `reframe()` always returns an ungrouped data frame and adjust accordingly.
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShyZWFkcikNCmxpYnJhcnkoamFuaXRvcikNCmxpYnJhcnkodGlkeXIpDQpsaWJyYXJ5KHJlYWR4bCkNCmxpYnJhcnkoc3RyaW5ncikNCmBgYA0KDQpgYGB7cn0NCmNhbmR5XzIwMTUgPC0gcmVhZF9leGNlbCgicmF3X2RhdGEvYm9pbmctYm9pbmctY2FuZHktMjAxNS54bHN4IikNCmNhbmR5XzIwMTYgPC0gcmVhZF9leGNlbCgicmF3X2RhdGEvYm9pbmctYm9pbmctY2FuZHktMjAxNi54bHN4IikNCmNhbmR5XzIwMTcgPC0gcmVhZF9leGNlbCgicmF3X2RhdGEvYm9pbmctYm9pbmctY2FuZHktMjAxNy54bHN4IikNCmBgYA0KYGBge3J9DQpjYW5keV8yMDE1IDwtIGNsZWFuX25hbWVzKGNhbmR5XzIwMTUpDQoNCiN2aWV3KGNhbmR5XzIwMTUpDQojY29sbmFtZXMoY2FuZHlfMjAxNSkNCiNoZWFkKGNhbmR5XzIwMTUpDQojZGltKGNhbmR5XzIwMTUpDQojc3VtbWFyeShjYW5keV8yMDE1KQ0KDQojIyByZW1vdmVkIGNvbHVtbnMgd2hpY2ggaSBkaWQgbm90IGJlbGlldmUgd291bGQgYmUgcmVxdWlyZWQgdG8gYW5zd2VyIHRoZSBnaXZlbg0KIyMgYW5hbHlzaXMgcXVlc3Rpb25zLg0KDQpjYW5keV8yMDE1X2NvbmNpc2UgPC0gY2FuZHlfMjAxNSAlPiUgDQogIHNlbGVjdChob3dfb2xkX2FyZV95b3U6eW9ya19wZXBwZXJtaW50X3BhdHRpZXMpDQoNCmNhbmR5XzIwMTVfcmVuYW1lIDwtIGNhbmR5XzIwMTVfY29uY2lzZSAlPiUgDQogIHJlbmFtZShhZ2UgPSBob3dfb2xkX2FyZV95b3UsDQogICAgICAgICB0cmlja19vcl90cmVhdGluZyA9IGFyZV95b3VfZ29pbmdfYWN0dWFsbHlfZ29pbmdfdHJpY2tfb3JfdHJlYXRpbmdfeW91cnNlbGYpDQoNCiNsaXN0KGNvbG5hbWVzKGNhbmR5XzIwMTVfcmVuYW1lKSkNCg0KIyBSZW1vdmVkIGFueSBpdGVtIGNvbHVtbnMgKHRvdGFsIDE5KSBmcm9tIGRhdGEgYmFzZSB0aGF0IEkgZGlkIG5vdCBjb25zaWRlciB0byBiZSBjYW5keS4NCg0KY2FuZHlfMjAxNV9yZW5hbWVfY29uY2lzZSA8LSBjYW5keV8yMDE1X3JlbmFtZSAlPiUgDQogIHNlbGVjdCgtYm94X29fcmFpc2lucywgLWNhc2hfb3Jfb3RoZXJfZm9ybXNfb2ZfbGVnYWxfdGVuZGVyLCANCiAgICAgICAgIC1kZW50YWxfcGFyYXBoZW5hbGlhLCAtZ2VuZXJpY19icmFuZF9hY2V0YW1pbm9waGVuLCAtZ2xvd19zdGlja3MsIA0KICAgICAgICAgLWJyb2tlbl9nbG93X3N0aWNrLCAtY3JlZXB5X3JlbGlnaW91c19jb21pY3NfY2hpY2tfdHJhY3RzLCAtaGVhbHRoeV9mcnVpdCwgDQogICAgICAgICAtaHVnc19hY3R1YWxfcGh5c2ljYWxfaHVncywgLWthbGVfc21vb3RoaWUsIC1sYXBlbF9waW5zLCAtc3BvdHRlZF9kaWNrLA0KICAgICAgICAgLXBldGVyc29uX2JyYW5kX3NpZGV3YWxrX2NoYWxrLCAtcGVhbnV0X2J1dHRlcl9qYXJzLCAtd2hpdGVfYnJlYWQsIA0KICAgICAgICAgLXdob2xlX3doZWF0X2FueXRoaW5nLCAtIG1pbmliYWdzX29mX2NoaXBzLCAtcGVuY2lscywNCiAgICAgICAgIC0gdmlhbHNfb2ZfcHVyZV9oaWdoX2ZydWN0b3NlX2Nvcm5fc3lydXBfZm9yX21haW5fbGluaW5nX2ludG9feW91cl92ZWluLA0KICAgICAgICAgLSBqb3lfam95X21pdF9pb2RpbmUsIC12aWNvZGluKQ0KDQpgYGANCg0KYGBge3J9DQpjYW5keV8yMDE2IDwtIGNsZWFuX25hbWVzKGNhbmR5XzIwMTYpDQpoZWFkKGNhbmR5XzIwMTYpDQp2aWV3KGNhbmR5XzIwMTYpDQpkaW0oY2FuZHlfMjAxNikNCg0KY2FuZHlfMjAxNl9jb25jaXNlIDwtIGNhbmR5XzIwMTYgJT4lIA0KICBzZWxlY3QoYXJlX3lvdV9nb2luZ19hY3R1YWxseV9nb2luZ190cmlja19vcl90cmVhdGluZ195b3Vyc2VsZjp5b3JrX3BlcHBlcm1pbnRfcGF0dGllcykNCg0KY2FuZHlfMjAxNl9yZW5hbWUgPC0gY2FuZHlfMjAxNl9jb25jaXNlICU+JSANCiAgcmVuYW1lKHRyaWNrX29yX3RyZWF0aW5nID0gYXJlX3lvdV9nb2luZ19hY3R1YWxseV9nb2luZ190cmlja19vcl90cmVhdGluZ195b3Vyc2VsZiwNCiAgICAgICAgIHNleCA9IHlvdXJfZ2VuZGVyLA0KICAgICAgICAgYWdlID0gaG93X29sZF9hcmVfeW91LA0KICAgICAgICAgY291bnRyeSA9IHdoaWNoX2NvdW50cnlfZG9feW91X2xpdmVfaW4sDQogICAgICAgICBzdGF0ZV9wcm92aW5jZV9jb3VudHkgPSB3aGljaF9zdGF0ZV9wcm92aW5jZV9jb3VudHlfZG9feW91X2xpdmVfaW4NCiAgICAgICAgICkNCg0KY2FuZHlfMjAxNl9yZW5hbWVfY29uY2lzZSA8LSBjYW5keV8yMDE2X3JlbmFtZSAlPiUgDQogIHNlbGVjdCgtYm9ua2Vyc190aGVfYm9hcmRfZ2FtZSwgLWJveG9fcmFpc2lucywgLWJyb2tlbl9nbG93X3N0aWNrLCANCiAgICAgICAgIC1jYXNoX29yX290aGVyX2Zvcm1zX29mX2xlZ2FsX3RlbmRlciwgLWNoYXJkb25uYXksIA0KICAgICAgICAgLWNyZWVweV9yZWxpZ2lvdXNfY29taWNzX2NoaWNrX3RyYWN0cywgLWRlbnRhbF9wYXJhcGhlbmFsaWEsDQogICAgICAgICAtZ2VuZXJpY19icmFuZF9hY2V0YW1pbm9waGVuLCAtZ2xvd19zdGlja3MsIC1oZWFsdGh5X2ZydWl0LA0KICAgICAgICAgLWh1Z3NfYWN0dWFsX3BoeXNpY2FsX2h1Z3MsIC1rYWxlX3Ntb290aGllLCAtIG1pbmliYWdzX29mX2NoaXBzLCAtcGVuY2lscywNCiAgICAgICAgIC1wZXJzb25fb2ZfaW50ZXJlc3Rfc2Vhc29uXzNfZHZkX2JveF9zZXRfbm90X2luY2x1ZGluZ19kaXNjXzRfd2l0aF9oaWxhcmlvdXNfb3V0dGFrZXMsDQogICAgICAgICAtc3BvdHRlZF9kaWNrLCAtdmljb2RpbiwgLXdoaXRlX2JyZWFkLCAtd2hvbGVfd2hlYXRfYW55dGhpbmcsDQogICAgICAgICAtIHZpYWxzX29mX3B1cmVfaGlnaF9mcnVjdG9zZV9jb3JuX3N5cnVwX2Zvcl9tYWluX2xpbmluZ19pbnRvX3lvdXJfdmVpbiwNCiAgICAgICAgIC1qb3lfam95X21pdF9pb2RpbmUsIC1zZW5pb3JfbWludHMsIG1pbnRfanVsZXBzLCAtc3dlZXR1bXNfYV9mcmllbmRfdG9fZGlhYmV0ZXMNCiAgICAgICAgICkNCg0KDQpgYGANCg0KDQpgYGB7cn0NCmNhbmR5XzIwMTcgPC0gY2xlYW5fbmFtZXMoY2FuZHlfMjAxNykNCnZpZXcoY2FuZHlfMjAxNykNCg0KY2FuZHlfMjAxN19jb25jaXNlIDwtIGNhbmR5XzIwMTcgJT4lIA0KICBzZWxlY3QocTFfZ29pbmdfb3V0OnE2X3lvcmtfcGVwcGVybWludF9wYXR0aWVzKSANCg0KY2FuZHlfMjAxN19yZW5hbWVfY29uY2lzZSA8LSBjYW5keV8yMDE3X2NvbmNpc2UgJT4lDQogIHJlbmFtZSh0cmlja19vcl90cmVhdGluZyA9IHExX2dvaW5nX291dCwNCiAgICAgICAgIHNleCA9IHEyX2dlbmRlciwNCiAgICAgICAgIGFnZSA9IHEzX2FnZSwNCiAgICAgICAgIGNvdW50cnkgPSBxNF9jb3VudHJ5LA0KICAgICAgICAgc3RhdGVfcHJvdmluY2VfY291bnR5ID0gcTVfc3RhdGVfcHJvdmluY2VfY291bnR5X2V0YywNCiAgICAgICAgICkNCg0KY2FuZHlfMjAxN19yZW5hbWVfY29uY2lzZSA8LSBjYW5keV8yMDE3X3JlbmFtZV9jb25jaXNlICU+JSANCiAgc2VsZWN0KC1xNl9ib25rZXJzX3RoZV9ib2FyZF9nYW1lLCAtcTZfYm94b19yYWlzaW5zLCAtcTZfYnJva2VuX2dsb3dfc3RpY2ssIA0KICAgICAgICAgLXE2X2Nhc2hfb3Jfb3RoZXJfZm9ybXNfb2ZfbGVnYWxfdGVuZGVyLCAtcTZfY2hhcmRvbm5heSwgDQogICAgICAgICAtcTZfY3JlZXB5X3JlbGlnaW91c19jb21pY3NfY2hpY2tfdHJhY3RzLCAtcTZfZGVudGFsX3BhcmFwaGVuYWxpYSwNCiAgICAgICAgIC1xNl9nZW5lcmljX2JyYW5kX2FjZXRhbWlub3BoZW4sIC1xNl9nbG93X3N0aWNrcywgLXE2X2hlYWx0aHlfZnJ1aXQsDQogICAgICAgICAtcTZfaHVnc19hY3R1YWxfcGh5c2ljYWxfaHVncywgLXE2X3Nlbmlvcl9taW50cywgLXE2X2thbGVfc21vb3RoaWUsIA0KICAgICAgICAgLXE2X21pbmliYWdzX29mX2NoaXBzLCBxNl9taW50X2p1bGVwcywgLXE2X3BlbmNpbHMsDQogICAgICAgICAtcTZfcmVhbF9ob3VzZXdpdmVzX29mX29yYW5nZV9jb3VudHlfc2Vhc29uXzlfYmx1ZV9yYXksDQogICAgICAgICAtcTZfc2FuZHdpY2hfc2l6ZWRfYmFnc19maWxsZWRfd2l0aF9ib29fYmVycnlfY3J1bmNoLA0KICAgICAgICAgLXE2X3Nwb3R0ZWRfZGljaywgLXE2X3ZpY29kaW4sIC1xNl93aGl0ZV9icmVhZCwgLXE2X3dob2xlX3doZWF0X2FueXRoaW5nLA0KICAgICAgICAgLXE2X3ZpYWxzX29mX3B1cmVfaGlnaF9mcnVjdG9zZV9jb3JuX3N5cnVwX2Zvcl9tYWluX2xpbmluZ19pbnRvX3lvdXJfdmVpbiwNCiAgICAgICAgIC1xNl9qb3lfam95X21pdF9pb2RpbmUsIC1xNl9zZW5pb3JfbWludHMsIC1xNl9zd2VldHVtc19hX2ZyaWVuZF90b19kaWFiZXRlcykNCg0KcTZfcGF0dGVybiA8LSAicTZcXF8iDQoNCmNvbG5hbWVzKGNhbmR5XzIwMTdfcmVuYW1lX2NvbmNpc2UpIDwtIHN0cl9yZXBsYWNlX2FsbChjb2xuYW1lcyhjYW5keV8yMDE3X3JlbmFtZV9jb25jaXNlKSwgcTZfcGF0dGVybiwgIiIgKQ0KDQoNCg0KDQpgYGANCiANCmBgYHtyfQ0KY2FuZHlfMjAxNV8yMDE2IDwtIGZ1bGxfam9pbihjYW5keV8yMDE1X3JlbmFtZV9jb25jaXNlLCBjYW5keV8yMDE2X3JlbmFtZV9jb25jaXNlKQ0KDQpjYW5keV8yMDE1XzIwMTZfMjAxNyA8LSBmdWxsX2pvaW4oY2FuZHlfMjAxNV8yMDE2LCBjYW5keV8yMDE3X3JlbmFtZV9jb25jaXNlKQ0KDQojY29sbmFtZXMoY2FuZHlfMjAxNV8yMDE2XzIwMTcpDQoNCmBgYA0KDQpgYGB7cn0NCmNhbmR5XzIwMTVfMjAxNl8yMDE3ICU+JSANCiAgDQoNCmBgYA0KDQo=